home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / vmenu.arc / BOOP.ASM next >
Encoding:
Assembly Source File  |  1985-11-30  |  718 b   |  34 lines
  1.           include lmacros.h
  2.  
  3.           procdef         boop
  4.  
  5.  
  6.           push           cx
  7.           push           dx
  8.           in             al,061h
  9.           push           ax
  10.           and            al,0fch
  11.           mov            dl,10
  12. more:     xor            al,2
  13.           out            061h,al
  14.           mov            cx,0300h
  15. hold:     loop           hold
  16.           dec            dl
  17.           jnz            more
  18.           and            al,0fch
  19.           out            061h,al
  20.           pop            ax
  21.           out            061h,al
  22.           pop            dx
  23.           pop            cx
  24.           pret
  25.  
  26.           pend boop
  27. ;
  28.  
  29.           finish
  30.           end
  31.  
  32.  
  33.  
  34.